home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / SIREN.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  128 b   |  10 lines
  1. 10  FOR N = 37 TO 2000 STEP 50
  2. 15  PRINT N
  3. 20  SOUND N,1
  4. 30  NEXT N
  5. 40  FOR N= 2000  TO 37 STEP -20
  6. 50  PRINT N
  7. 60  SOUND N,1
  8. 70  NEXT N
  9. 80  GOTO 10
  10.